#!/usr/bin/perl

$infile="C:\\my Projects\\SMS data analysis\\FAQ_all.txt";
open(IF,$infile)|| die('cant able to open $infile');

while(<IF>){
	if($_=~ m/#\?/){
		print "\n";
		print $_;	
	}
	else{
		chomp($_);
		print $_;
	}
}